3.25 \(\int x \cosh ^4(a+b x) \, dx\)

Optimal. Leaf size=80 \[ -\frac {\cosh ^4(a+b x)}{16 b^2}-\frac {3 \cosh ^2(a+b x)}{16 b^2}+\frac {x \sinh (a+b x) \cosh ^3(a+b x)}{4 b}+\frac {3 x \sinh (a+b x) \cosh (a+b x)}{8 b}+\frac {3 x^2}{16} \]

[Out]

3/16*x^2-3/16*cosh(b*x+a)^2/b^2-1/16*cosh(b*x+a)^4/b^2+3/8*x*cosh(b*x+a)*sinh(b*x+a)/b+1/4*x*cosh(b*x+a)^3*sin
h(b*x+a)/b

________________________________________________________________________________________

Rubi [A]  time = 0.04, antiderivative size = 80, normalized size of antiderivative = 1.00, number of steps used = 3, number of rules used = 2, integrand size = 10, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.200, Rules used = {3310, 30} \[ -\frac {\cosh ^4(a+b x)}{16 b^2}-\frac {3 \cosh ^2(a+b x)}{16 b^2}+\frac {x \sinh (a+b x) \cosh ^3(a+b x)}{4 b}+\frac {3 x \sinh (a+b x) \cosh (a+b x)}{8 b}+\frac {3 x^2}{16} \]

Antiderivative was successfully verified.

[In]

Int[x*Cosh[a + b*x]^4,x]

[Out]

(3*x^2)/16 - (3*Cosh[a + b*x]^2)/(16*b^2) - Cosh[a + b*x]^4/(16*b^2) + (3*x*Cosh[a + b*x]*Sinh[a + b*x])/(8*b)
+ (x*Cosh[a + b*x]^3*Sinh[a + b*x])/(4*b)

Rule 30

Int[(x_)^(m_.), x_Symbol] :> Simp[x^(m + 1)/(m + 1), x] /; FreeQ[m, x] && NeQ[m, -1]

Rule 3310

Int[((c_.) + (d_.)*(x_))*((b_.)*sin[(e_.) + (f_.)*(x_)])^(n_), x_Symbol] :> Simp[(d*(b*Sin[e + f*x])^n)/(f^2*n
^2), x] + (Dist[(b^2*(n - 1))/n, Int[(c + d*x)*(b*Sin[e + f*x])^(n - 2), x], x] - Simp[(b*(c + d*x)*Cos[e + f*
x]*(b*Sin[e + f*x])^(n - 1))/(f*n), x]) /; FreeQ[{b, c, d, e, f}, x] && GtQ[n, 1]

Rubi steps

\begin {align*} \int x \cosh ^4(a+b x) \, dx &=-\frac {\cosh ^4(a+b x)}{16 b^2}+\frac {x \cosh ^3(a+b x) \sinh (a+b x)}{4 b}+\frac {3}{4} \int x \cosh ^2(a+b x) \, dx\\ &=-\frac {3 \cosh ^2(a+b x)}{16 b^2}-\frac {\cosh ^4(a+b x)}{16 b^2}+\frac {3 x \cosh (a+b x) \sinh (a+b x)}{8 b}+\frac {x \cosh ^3(a+b x) \sinh (a+b x)}{4 b}+\frac {3 \int x \, dx}{8}\\ &=\frac {3 x^2}{16}-\frac {3 \cosh ^2(a+b x)}{16 b^2}-\frac {\cosh ^4(a+b x)}{16 b^2}+\frac {3 x \cosh (a+b x) \sinh (a+b x)}{8 b}+\frac {x \cosh ^3(a+b x) \sinh (a+b x)}{4 b}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.18, size = 53, normalized size = 0.66 \[ -\frac {-4 b x (8 \sinh (2 (a+b x))+\sinh (4 (a+b x))+6 b x)+16 \cosh (2 (a+b x))+\cosh (4 (a+b x))}{128 b^2} \]

Antiderivative was successfully verified.

[In]

Integrate[x*Cosh[a + b*x]^4,x]

[Out]

-1/128*(16*Cosh[2*(a + b*x)] + Cosh[4*(a + b*x)] - 4*b*x*(6*b*x + 8*Sinh[2*(a + b*x)] + Sinh[4*(a + b*x)]))/b^
2

________________________________________________________________________________________

fricas [A]  time = 1.19, size = 114, normalized size = 1.42 \[ \frac {16 \, b x \cosh \left (b x + a\right ) \sinh \left (b x + a\right )^{3} + 24 \, b^{2} x^{2} - \cosh \left (b x + a\right )^{4} - \sinh \left (b x + a\right )^{4} - 2 \, {\left (3 \, \cosh \left (b x + a\right )^{2} + 8\right )} \sinh \left (b x + a\right )^{2} - 16 \, \cosh \left (b x + a\right )^{2} + 16 \, {\left (b x \cosh \left (b x + a\right )^{3} + 4 \, b x \cosh \left (b x + a\right )\right )} \sinh \left (b x + a\right )}{128 \, b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*cosh(b*x+a)^4,x, algorithm="fricas")

[Out]

1/128*(16*b*x*cosh(b*x + a)*sinh(b*x + a)^3 + 24*b^2*x^2 - cosh(b*x + a)^4 - sinh(b*x + a)^4 - 2*(3*cosh(b*x +
a)^2 + 8)*sinh(b*x + a)^2 - 16*cosh(b*x + a)^2 + 16*(b*x*cosh(b*x + a)^3 + 4*b*x*cosh(b*x + a))*sinh(b*x + a)
)/b^2

________________________________________________________________________________________

giac [A]  time = 0.12, size = 86, normalized size = 1.08 \[ \frac {3}{16} \, x^{2} + \frac {{\left (4 \, b x - 1\right )} e^{\left (4 \, b x + 4 \, a\right )}}{256 \, b^{2}} + \frac {{\left (2 \, b x - 1\right )} e^{\left (2 \, b x + 2 \, a\right )}}{16 \, b^{2}} - \frac {{\left (2 \, b x + 1\right )} e^{\left (-2 \, b x - 2 \, a\right )}}{16 \, b^{2}} - \frac {{\left (4 \, b x + 1\right )} e^{\left (-4 \, b x - 4 \, a\right )}}{256 \, b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*cosh(b*x+a)^4,x, algorithm="giac")

[Out]

3/16*x^2 + 1/256*(4*b*x - 1)*e^(4*b*x + 4*a)/b^2 + 1/16*(2*b*x - 1)*e^(2*b*x + 2*a)/b^2 - 1/16*(2*b*x + 1)*e^(
-2*b*x - 2*a)/b^2 - 1/256*(4*b*x + 1)*e^(-4*b*x - 4*a)/b^2

________________________________________________________________________________________

maple [A]  time = 0.16, size = 112, normalized size = 1.40 \[ \frac {\frac {\left (b x +a \right ) \sinh \left (b x +a \right ) \left (\cosh ^{3}\left (b x +a \right )\right )}{4}+\frac {3 \left (b x +a \right ) \cosh \left (b x +a \right ) \sinh \left (b x +a \right )}{8}+\frac {3 \left (b x +a \right )^{2}}{16}-\frac {\left (\cosh ^{4}\left (b x +a \right )\right )}{16}-\frac {3 \left (\cosh ^{2}\left (b x +a \right )\right )}{16}-a \left (\left (\frac {\left (\cosh ^{3}\left (b x +a \right )\right )}{4}+\frac {3 \cosh \left (b x +a \right )}{8}\right ) \sinh \left (b x +a \right )+\frac {3 b x}{8}+\frac {3 a}{8}\right )}{b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x*cosh(b*x+a)^4,x)

[Out]

1/b^2*(1/4*(b*x+a)*sinh(b*x+a)*cosh(b*x+a)^3+3/8*(b*x+a)*cosh(b*x+a)*sinh(b*x+a)+3/16*(b*x+a)^2-1/16*cosh(b*x+
a)^4-3/16*cosh(b*x+a)^2-a*((1/4*cosh(b*x+a)^3+3/8*cosh(b*x+a))*sinh(b*x+a)+3/8*b*x+3/8*a))

________________________________________________________________________________________

maxima [A]  time = 0.39, size = 96, normalized size = 1.20 \[ \frac {3}{16} \, x^{2} + \frac {{\left (4 \, b x e^{\left (4 \, a\right )} - e^{\left (4 \, a\right )}\right )} e^{\left (4 \, b x\right )}}{256 \, b^{2}} + \frac {{\left (2 \, b x e^{\left (2 \, a\right )} - e^{\left (2 \, a\right )}\right )} e^{\left (2 \, b x\right )}}{16 \, b^{2}} - \frac {{\left (2 \, b x + 1\right )} e^{\left (-2 \, b x - 2 \, a\right )}}{16 \, b^{2}} - \frac {{\left (4 \, b x + 1\right )} e^{\left (-4 \, b x - 4 \, a\right )}}{256 \, b^{2}} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*cosh(b*x+a)^4,x, algorithm="maxima")

[Out]

3/16*x^2 + 1/256*(4*b*x*e^(4*a) - e^(4*a))*e^(4*b*x)/b^2 + 1/16*(2*b*x*e^(2*a) - e^(2*a))*e^(2*b*x)/b^2 - 1/16
*(2*b*x + 1)*e^(-2*b*x - 2*a)/b^2 - 1/256*(4*b*x + 1)*e^(-4*b*x - 4*a)/b^2

________________________________________________________________________________________

mupad [B]  time = 0.15, size = 68, normalized size = 0.85 \[ \frac {3\,x^2}{16}-\frac {\frac {3\,{\mathrm {cosh}\left (a+b\,x\right )}^2}{16}+\frac {{\mathrm {cosh}\left (a+b\,x\right )}^4}{16}-b\,\left (\frac {x\,\mathrm {sinh}\left (a+b\,x\right )\,{\mathrm {cosh}\left (a+b\,x\right )}^3}{4}+\frac {3\,x\,\mathrm {sinh}\left (a+b\,x\right )\,\mathrm {cosh}\left (a+b\,x\right )}{8}\right )}{b^2} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(x*cosh(a + b*x)^4,x)

[Out]

(3*x^2)/16 - ((3*cosh(a + b*x)^2)/16 + cosh(a + b*x)^4/16 - b*((x*cosh(a + b*x)^3*sinh(a + b*x))/4 + (3*x*cosh
(a + b*x)*sinh(a + b*x))/8))/b^2

________________________________________________________________________________________

sympy [A]  time = 1.83, size = 138, normalized size = 1.72 \[ \begin {cases} \frac {3 x^{2} \sinh ^{4}{\left (a + b x \right )}}{16} - \frac {3 x^{2} \sinh ^{2}{\left (a + b x \right )} \cosh ^{2}{\left (a + b x \right )}}{8} + \frac {3 x^{2} \cosh ^{4}{\left (a + b x \right )}}{16} - \frac {3 x \sinh ^{3}{\left (a + b x \right )} \cosh {\left (a + b x \right )}}{8 b} + \frac {5 x \sinh {\left (a + b x \right )} \cosh ^{3}{\left (a + b x \right )}}{8 b} + \frac {3 \sinh ^{4}{\left (a + b x \right )}}{32 b^{2}} - \frac {5 \cosh ^{4}{\left (a + b x \right )}}{32 b^{2}} & \text {for}\: b \neq 0 \\\frac {x^{2} \cosh ^{4}{\relax (a )}}{2} & \text {otherwise} \end {cases} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(x*cosh(b*x+a)**4,x)

[Out]

Piecewise((3*x**2*sinh(a + b*x)**4/16 - 3*x**2*sinh(a + b*x)**2*cosh(a + b*x)**2/8 + 3*x**2*cosh(a + b*x)**4/1
6 - 3*x*sinh(a + b*x)**3*cosh(a + b*x)/(8*b) + 5*x*sinh(a + b*x)*cosh(a + b*x)**3/(8*b) + 3*sinh(a + b*x)**4/(
32*b**2) - 5*cosh(a + b*x)**4/(32*b**2), Ne(b, 0)), (x**2*cosh(a)**4/2, True))

________________________________________________________________________________________